unit cmdSetGroupInfoOff;

interface

uses  classes, sysutils
    , nativeXml
    , appMappldXmlNode
    , appMappldXmlCommand
    , appMappldTypes
    , appMappldXmlContext
    , appMappldXmlGroup
;

type
    {------------------------------ TCmdSetGroupInfoOff }

    {***************************************************************************
    * TCmdSetGroupInfoOff
    ***************************************************************************}
    TCmdSetGroupInfoOff = class( TMappldXmlCommand )
protected
    procedure   internalProccess(); override;
    end;

implementation

{*******************************************************************************
* internalProccess
*******************************************************************************}
procedure TCmdSetGroupInfoOff.internalProccess();
var
    group : TMappldXmlGroup;

begin
    group := FxmlContext.groupsByCode[ FxmlNode.ValueAsString ];
    if ( group = nil ) then
    begin
        exit;
    end;

    group.flInfo := false;
end;

initialization

TMappldXmlCommand.registerCommandByCode( XML_CMD_SetGroupInfoOff, TCmdSetGroupInfoOff );

end.
